home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
MEDICAL
/
1752.ZIP
/
MHD.ZIP
/
MHAPPEND.PRG
< prev
next >
Wrap
Text File
|
1986-07-06
|
3KB
|
116 lines
* MHAPPEND DB3 PLUS REVISION 07/04/86
*
SET TALK OFF
SET DELIMITER ON
SET INTENSITY ON
CLOSE ALL DATABASES
STORE .F. TO file1
STORE .F. TO file2
STORE .F. TO file3
STORE .F. TO file4
STORE .F. TO file5
STORE .F. TO file6
DO WHILE .T.
CLEAR
? 'PROGRAM TO ADD NEW DATA'
? ' 1. To all files'
? ' 2. To DRUG file'
? ' 3. To ORGANISM file'
? ' 4. To ADVERSE REACTION file'
? ' 5. To INTERACTION file'
? ' 6. To CLINICAL DATA file'
? ' 7. To REFERENCE file'
? ' 8. Read last identification numbers'
? ' 9. Index files after all data entered'
? ' A. Review data for a specific drug'
? ' B. Return to previous menu'
WAIT 'Enter number of your choice.' TO choice
IF choice = ' '
LOOP
ENDIF
DO CASE
CASE choice = '1'
STORE .T. TO file1
STORE .T. TO file2
STORE .T. TO file3
STORE .T. TO file4
STORE .T. TO file5
STORE .T. TO file6
DO MHIDNO
USE MHDRUG
APPEND
USE MHORGAN
APPEND
USE MHADVERS
APPEND
USE MHINTACT
APPEND
USE MHCLINIC
APPEND
USE MHREFER
APPEND
CASE choice = '2'
STORE .T. TO file1
USE MHDRUG
APPEND
CASE choice = '3'
STORE .T. TO file2
USE MHORGAN
APPEND
CASE choice = '4'
STORE .T. TO file3
USE MHADVERS
APPEND
CASE choice = '5'
STORE .T. TO file4
USE MHINTACT
APPEND
CASE choice = '6'
STORE .T. TO file5
USE MHCLINIC
APPEND
CASE choice = '7'
STORE .T. TO file6
USE MHREFER
APPEND
CASE choice = '8'
DO MHIDNO
CASE choice = '9'
IF file1
USE MHDRUG INDEX MHDRUGID
INDEX ON DRUG_ID TO MHDRUGID
USE MHDRUG INDEX MHGENAME
INDEX ON GEN_NAME TO MHGENAME
ENDIF
IF file2
USE MHORGAN INDEX MHORGAN
INDEX ON DRUG_ID TO MHORGAN
ENDIF
IF file3
USE MHADVERS INDEX MHADVERS
INDEX ON DRUG_ID TO MHADVERS
ENDIF
IF file4
USE MHINTACT INDEX MHINTACT
INDEX ON DRUG_ID TO MHINTACT
ENDIF
IF file5
USE MHCLINIC INDEX MHCLINIC
INDEX ON DRUG_ID TO MHCLINIC
ENDIF
IF file6
USE MHREFER INDEX MHREFER
INDEX ON REF_ID TO MHREFER
ENDIF
CASE UPPER(choice) = 'A'
DO MHDRUG
CASE UPPER(choice) = 'B'
SET DELIMITER OFF
RETURN
ENDCASE
ENDDO
SET DELIMITER OFF
RETURN